* lisp/isearch.el: Support lax-whitespace in regexp-function searches

(isearch-search-fun-default): Let-bind `search-spaces-regexp'
around `isearch-regexp-function'.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 26e6eb1d7d4bc1cc395b1994de3a73fa8bd79f85..61ae42e16f8b4046773572355f1d0ab3e0a5cbb0 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2621,7 +2621,9 @@ Can be changed via `isearch-search-fun-function' for special needs."
                          (null (car isearch-cmds))
                          (eq (length isearch-string)
                              (length (isearch--state-string
-                                       (car isearch-cmds))))))))
+                                       (car isearch-cmds)))))))
+            (search-spaces-regexp (when isearch-lax-whitespace
+                                    search-whitespace-regexp)))
        (funcall
         (if isearch-forward #'re-search-forward #'re-search-backward)
         (if (functionp isearch-regexp-function)